<%

response.Charset="utf-8"

dim startime
startime=timer()

Dim conn,connstr
'on error resume next
'response.Write server.mappath("Counter/#Date.mdb"):response.End()
connstr = "DBQ="&server.mappath("CounterV3/#Date.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style type="text/css">
body{font-size:14px}
</style>
<title>在线人数</title>
</head>
<body>
<%
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select * from [Counter]"
mRs.open Sql,conn,1,1
Dim Today,Browser,YesterdayIp,Yesterday
Today = mRs("Today")
Browser = mRs("Browser")
YesterdayIp=mRs("YesterdayIp")
Yesterday=mRs("Yesterday")
%>
<table border="0" cellpadding="0" width="100%" align="center">
	<tr>
	  <td width="30%">在线人数：</td>
	  <td><div style="width:<%= Application("TotalUsers")*5%>px; height:20px; line-height:20px; text-align:center; color:#FFFFFF; background:#FF9900"><%= Application("TotalUsers") %></div></td>
  </tr>
	<tr>
		<td>今日IP量：        </td>
        <td>
        <div style="width:<%=int(Today/(Today+YesterdayIp)*200)%>px; height:20px; line-height:20px; text-align:center; color:#FFFFFF; background:#0099FF"><% =Today%></div></td>
	</tr>
	<tr>
		<td colspan="2"></td>
	</tr>
	<tr>
		<td>今日浏览量：        </td>
	    <td><div style="width:<%=int(Browser/(Yesterday+Browser)*200)%>px; height:20px; line-height:20px; text-align:center; color:#FFFFFF; background:#CC0000"><% =Browser%></div></td>
	</tr>
	<tr>
		<td colspan="2"></td>
	</tr>
	<tr>
		<td>昨日IP量：        </td>
	    <td><div style="width:<%=int(YesterdayIp/(YesterdayIp+Today)*200)%>px; height:20px; line-height:20px; text-align:center; color:#FFFFFF; background:#0099FF"><% =YesterdayIp%></div></td>
	</tr>
	<tr>
		<td colspan="2"></td>
	</tr>
	<tr>
	  <td>昨日浏览量：      </td>
      <td><div style="width:<%=int(Yesterday/(Browser+Yesterday)*200)%>px; height:20px; line-height:20px; text-align:center; color:#FFFFFF; background:#CC0000"><% =Yesterday%></div></td>
  </tr>
	<tr>
		<td height="29" colspan="2" style="color:#FF0000">日均PV：
	    <% =int(mRs("Counter")/mRs("Daynum")) %>，日均IP：<% =int(mRs("CounterIp")/mRs("Daynum")) %></td>
	</tr>
	<tr>
		<td colspan="2"></td>
	</tr>
	
	<tr>
		<td colspan="2"></td>
	</tr>
</table>
<div style="border-top:1px solid #CCCCCC; line-height:25px; height:25px; color:#666666">Powered by 5u.hk! v3</div>
</body>
</html>